library(rtweet)
library(plotly)
## authenticate via access token
token <- create_token(
  app = "Witek",
  consumer_key = Sys.getenv("CONSUMER_KEY"),
  consumer_secret = Sys.getenv("CONSUMER_SECRET"),
  access_token = Sys.getenv("ACCESS_TOKEN"),
  access_secret = Sys.getenv("ACCESS_SECRET")
  )
## search for 18000 tweets using the rstats hashtag
rt <- search_tweets(
  "data + scientist OR analyst OR analist OR engineer + lang:nl", n = 10000, include_rts = FALSE
)
Searching for tweets...
Finished collecting tweets!
## preview tweets data
rt
## preview users data
users_data(rt)
## plot time series (if ggplot2 is installed)
p <- ts_plot(rt)
ggplotly(p)

A

LS0tCnRpdGxlOiAiUnR3ZWV0IgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7cn0KbGlicmFyeShydHdlZXQpCmxpYnJhcnkocGxvdGx5KQoKIyMgYXV0aGVudGljYXRlIHZpYSBhY2Nlc3MgdG9rZW4KdG9rZW4gPC0gY3JlYXRlX3Rva2VuKAogIGFwcCA9ICJXaXRlayIsCiAgY29uc3VtZXJfa2V5ID0gU3lzLmdldGVudigiQ09OU1VNRVJfS0VZIiksCiAgY29uc3VtZXJfc2VjcmV0ID0gU3lzLmdldGVudigiQ09OU1VNRVJfU0VDUkVUIiksCiAgYWNjZXNzX3Rva2VuID0gU3lzLmdldGVudigiQUNDRVNTX1RPS0VOIiksCiAgYWNjZXNzX3NlY3JldCA9IFN5cy5nZXRlbnYoIkFDQ0VTU19TRUNSRVQiKQogICkKCiMjIHNlYXJjaCBmb3IgMTgwMDAgdHdlZXRzIHVzaW5nIHRoZSByc3RhdHMgaGFzaHRhZwpydCA8LSBzZWFyY2hfdHdlZXRzKAogICJkYXRhICsgc2NpZW50aXN0IE9SIGFuYWx5c3QgT1IgYW5hbGlzdCBPUiBlbmdpbmVlciArIGxhbmc6bmwiLCBuID0gMTAwMDAsIGluY2x1ZGVfcnRzID0gRkFMU0UKKQoKIyMgcHJldmlldyB0d2VldHMgZGF0YQpydAoKIyMgcHJldmlldyB1c2VycyBkYXRhCnVzZXJzX2RhdGEocnQpCgojIyBwbG90IHRpbWUgc2VyaWVzIChpZiBnZ3Bsb3QyIGlzIGluc3RhbGxlZCkKcCA8LSB0c19wbG90KHJ0KQpnZ3Bsb3RseShwKQoKYGBgCgpB